home *** CD-ROM | disk | FTP | other *** search
/ MacHome 1999 Game / Image.bin / Role Playing and Strategy / Starbound II.hqx / Starbound II / AI agents / Gypsum.rsrc / ss$t_142 < prev    next >
Encoding:
Text File  |  1998-05-14  |  769 b   |  32 lines
  1. situation ground_unit
  2. vars
  3.    me : ground;
  4.    num : integer;
  5.    enemy : ground;
  6.    target : integer;
  7.    success : boolean;
  8.    
  9. begin
  10.    // Just pick a random enemy unit and attack
  11.    me := This_ground();
  12.    // Calculate the number of ground units
  13.    num := 0;
  14.    enemy := First_ground(false);
  15.    while (enemy <> nil) do
  16.       begin
  17.          num := num + 1;
  18.          enemy := Next_ground(enemy);
  19.       end;
  20.    if num > 0 then         // Only pick a target if there are any
  21.       begin
  22.          target := Random(num);
  23.          enemy := First_ground(false);
  24.          while (target <> 0) do
  25.             begin
  26.                target := target - 1;
  27.                enemy := Next_ground(enemy);
  28.             end;
  29.          success := Set_ground_target(me, enemy);
  30.       end;
  31. end;
  32.